00010		TITLE PLOT
00020		ENTRY PLOT
00030		EXTERNAL OUTF,PUTFIL,FASTOU,FINFIL,EXIT,PAC
00035	L←3
00040	N:	BLOCK =128
00100	PLOT:	0		;SUBROUTINE PLOT(I,J,K)
00200		MOVE	2,OUTF		;COMMON /OUTF/JJ
00300		CAIN	2,[¬1]		;DIMENSION N(128)
00400		JRST	PL4		;IF(JJ.EQ.-1)GO TO 4
00500		MOVEI	L,1		;L=1
00600		MOVEI	4,=127		;N(1)=127
00650		MOVEM	4,N
00700		MOVE	4," "		;IF(JJ.EQ.' ')JJ='PLT'
00710		CAME	4,OUTF
00720		JRST	PLB
00730		MOVE	4,"PLT"
00740		MOVEM	4,OUTF
00800	PLB:	JSA	16,PUTFIL	;CALL PUTFIL(JJ)
00810		JUMP	OUTF
00900		SETOM	OUTF		;JJ=-1
01000	PL4:	MOVE	5,@3(16)	;4	IF(K.EQ.99)GO TO 1
01010		CAIN	5,=99
01020		JRST	PL1
01100		AOJ	L		;L=L+1
01110		MOVEI	7,N
01200		ADD	7,L		;CALL PAC(N(L),I)
01205		MOVE	7,-1(7)
01215		MOVE	6,@(16)
01225		JSA	16,PAC
01235		JUMP	7
01245		JUMP	6
01500		CAIGE	L,=128	;3	IF(L.LT.128)RETURN
01510		JRA	16,3(16)
01600		JSA	16,FASTOU	;2	CALL FASTOU(N,128)
01610		JUMP	N
01620		JUMP	[=128]
01700		MOVEI	L,1		;L=1
01800		JRA	16,3(16)	;RETURN
01900	PL1:	MOVEM	L,N		;1	N(1)=L
02000		MOVEI	4,N		;J=N(L)
02010		ADD	4,L
02020		MOVE	4,-1(4)
02030		MOVEM	4,@1(16)
02040		MOVE	7,4
02100	PL100:	MOVEI	4,N		;DO 100 JJ=L,128
02200		ADD	4,L	;100	N(JJ)=J
02210		MOVEM	7,-1(4)
02220		CAIGE	L,=128
02230		AOJA	L,PL100
02300		JSA	16,FASTOU	;CALL FASTOU(N,128)
02310		JUMP	N
02320		JUMP	[=128]
02400		JSA	16,FINFIL	;CALL FINFIL
02500		SETZM	OUTF		;JJ=0
02600		JSA	16,EXIT		;CALL EXIT
02700		END